home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 08 System Utilities / SWAP.BIN (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  1KB  |  36 lines
  1. 10 POKE55,.:POKE56,160:CLR:K=826:PRINT"[147][142]"
  2. 15 FORI=.TO94:READY:POKEI+K,Y:NEXT
  3. 20 PRINT"ENTER FIRST DEVICE NUMBER."
  4. 25 GOSUB500:A=Z:IFFTHENF=.:GOTO20
  5. 30 PRINT"                                  "
  6. 35 PRINT"ENTER SECOND DEVICE NUMBER."
  7. 40 GOSUB500:B=Z:IFFTHENF=.:PRINT"":GOTO35
  8. 45 IFA<>BTHEN55
  9. 50 PRINT"[147]YOU ENTERED TWO IDENTICAL NUMBERS.":GOTO20
  10. 55 PRINT"             "
  11. 60 POKE870,A:POKE882,A+32:POKE887,A+64
  12. 65 POKE878,B:POKE895,B+32:POKE900,B+64
  13. 70 PRINT"ENTER FILENAME."
  14. 75 INPUTF$:IFF$=""THENEND
  15. 80 PRINT"ENTER DEVICE NUMBER FOR PROGRAM"
  16. 85 GOSUB500:IFFTHENF=.:PRINT"":GOTO80
  17. 90 PRINT"[147]WRITING FILE..."
  18. 95 OPEN8,Z,1,F$
  19. 100 FORI=.TO94:PRINT#8,CHR$(PEEK(I+K));:NEXT
  20. 105 PRINT"...DONE":CLOSE8:END
  21. 110 FORI=.TO94:PRINT#8,CHR$(PEEK(I+K));:NEXT:CLOSE8:END
  22. 120 DATA167,2,32,192,255,169,15,76
  23. 130 DATA195,255,77,45,87,119,0,2,32,64
  24. 140 DATA24,165,34,105,2,133,45,165,35
  25. 150 DATA105,0,133,46,169,8,162,175,160
  26. 160 DATA2,32,189,255,169,15,168,162,10
  27. 170 DATA32,186,255,32,167,2,169,11,133
  28. 180 DATA186,169,42,141,181,2,169,74
  29. 190 DATA141,182,2,32,167,2,169,43,141
  30. 200 DATA181,2,169,75,141,182,2,169,32
  31. 210 DATA133,186,32,167,2,32,83,228,76
  32. 220 DATA116,164,139,227,183,2
  33. 500 PRINT"(FROM 4 TO 30)":PRINT"    [145]"
  34. 510 INPUTZ:IFZ>3ANDZ<31THENRETURN
  35. 530 PRINT"ILLEGAL ENTRY[146]                     ":F=1:RETURN
  36.